The current release of the PDP-9 ADVANCED Software System 
(Keyboard Monitor V4B) supercedes all earlier versions and 
is distributed in one of two forms: 


1. Three (3) trays of paper tapes (24 tapes) for PDP-9's 
with Disks but no DECtapes. 


2. One (1) DECtape for PDP~9's with Disks and/or DECtapes. 


DECTAPE PDP-9's 


The System DECtape issued by Digital Equipment Corporation is 
an 8K, non-EAE, non-API, 33KSR version of the Keyboard Monitor 
System: V4B, 9-30-68 (DEC-9U-SRZB-UC). SGEN (System Generation) 
should be used to tailor the system tape to the specific machine 
configurations. A write-up on SGEN starts on page ; 


DECTAPE/DISK PDP-9's 


The System DECtape issued by Digital Equipment Corporation is 

an 8K, non-EAE, non-API, 33KSR version of the Keyboard Monitor 
System: V4B, 9-30-68 (DEC-9U-SRZB-UC). Disk handlers are 
contained in the binary file, .LIBR BIN. It is not directly 
operable from the Disk until system generation has been performed. 
Before attempting to use the system, the user should be familiar 
with the material contained in the SGEN write-up beginning on 
page , and the PDP-9 ADVANCED SOFTWARE DISK SYSTEM: INTERIM 
VERSION write-up, beginning on page ° 


In addition to the System DECtape (DEC-9U-SRZB-UC) and DECtape 
bootstrap (DEC=-9U-LBAA-PH), the nore onna two paper tapes should 
be included: 


1. .DSKBT (DEC-9U~LWDA~PH) - Disk System Bootstrap 


2. DSKSAV (DEC-9A-UPFA-PH) - Disk System Save/Restore 
Utility Program 


PAPER TAPE/DISK PDP-9'S 


The 24 binary tapes, as distributed by Digital Equipment Corporation, 
constitute an 8K, non-EAE, non-API, 33KSR version of the Keyboard 
Monitor System: V4B, 9-30-68 (DEC- | ). SGEN (System Gener- 
ation) should be used to tailor the system to the specific config- 
uration involved. Before attempting to use the system, the user 
should be familiar with the material contained in the SGEN write-up,. 
beginning on page . , and the PDP-9 ADVANCED SOFTWARE DISK SYSTEM: 


INTERIM VERSION write-up, beginning on page 


In addition to the three trays of tape, the following two paper 
tapes should be included: 


1. .DSKBT (DEC-9U-LWDA-PH) - Disk System Bootstrap 


2. DSKPTR (DEC-9A-YPDA-PH) - Disk System Save/Restore 
Utility Program 


Attached is a list of PDP-9 ADVANCED Software System changes 
between V4B, 9-30-68 and earlier versions, a write-up on the 
INTERIM DISK SYSTEM, one on MAGTAPE HANDLER: MTF., one on the 
RM@9 drum handlers, and additions to the FORTRAN IV subroutines 


library. Also included are features published with system Vac 
which have not yet been up-dated in manuals. 


Document Contents: 
PART TI: 
PDP-9 ADVANCED SOFTWARE SYSTEM CHANGE NOTICE 


T/O Handlers yg 
KM9 V4B : 

SGEN V3B 

UPDATE V4A 

DUMP V3A 

MACROA V3A 

F4 V4a 

F4A V4A 

LINKING LOADER V3A 

EDITOR V4A 

DDT V3A 

PIP V7A 

PATCH V3A 

CHAIN V2A 

MONITOR V4B SYSTEM PROGRAM PATCHES 


PAARL Lis 


SYSTEM OPERATION 


SK DECTAPE SYSTEM OPERATION 

SYSTEM GENERATION: BASIC RULES 

PDP-9 ADVANCED SOFTWARE DISK SYSTEM: INTERIM VERSION 
MAGTAPE HANDLER: MTF., Version 1 [ 
RM@9 DRUM HANDLERS FOR THE PDP-9 

ADDITIONS TO PDP-9 FORTRAN IV SUBROUTINE LIBRARY .- 


FILE: File Commands 

TIME: Clock Handling 

TIME1Z: Clock Handling : 
ADJ1: Adjustable Dimensioning 
ADJ2: Adjustable Dimensioning 
ADJ3: Adjustable Dimensioning 


VAR I 


PDP-9 ADVANCED SOFTWARE SYSTEM CHANGE NOTICE © 
VERSION V4B (9-30-68) 


I/O Handlers ; 


A. Disk Handlers (DKA., DKB., DKC., DKD.) 


Disk handlers (DKA., DKB., DKC.,! DKD.) have been added to 
the system library (see PDP-9 ADVANCED SOFTWARE DISK SYSTEM: 
INTERIM VERSION, page 30). 


B. Magnetic Tape Handler (MTF. ) 


Magnetic tape handler MTF. has been added to the system 
library (see MTI., Version 1, page 44). When used in the 
Keyboard Monitor environment, MTF. references .SCOM+4, bit 6 
to determine whether 7 or 9 channel drives are present in 


the system (9=7 channel, 1=9 channel). Variable MT9CHN need 
only be defined for 9-channel paper-tape systems. 


Cc. Teletype Handler (TTA): _ ie 


Appropriate. delays for both vertical and horizontal tabbing 
have been added to the teletype handler to accommodate the 
automatic tabbing mechanisms of Model 35 teletypes. , 


D. Card Reader Handler (CDB. - 4 
CDB. has been modified to operate in the following manner; 


-l.  *End-of-Medium: EOM occurs on 1 of 2 conditions: 
| | | 


a. The presence of an'EOF card (col. 1 = all l's). 


NOTE: An EOF card is required as the terminating 
card of a deck when using the CRG1E reader. It is | 
optional for the CR@2B. 


b. Striking the EOF button (CR@2B only) with the 
hopper empty. _This feature is used as follows: 
(1) Mopper empty (at ond of deck) caunes teletype 
, output of LOPS 4 (not ready). 


« . ty a ; ce : i you . at 
*ihdeoleMocivn on thea eard reader 16 equivalent to an tuceol-Wi le, 
Leon, the gard reader handler rocognives thin condi tbon an Che ond | 
Of the onbirea card deck or file. | 


(2) At this point striking the EOF button on the 
card reader followed by striking #R on the 
teletype causes recognition of end of file. 


NOTE: The IOT, CREF, 786761, skip on EOF, 
is recognized only by the CR@2B control and 
is assumed to be an effective NOP on the CRQ@IE. 


2-°. Reader-Not-Ready (.IOPS 4): All error conditions result , 
in .IOPS 4. Manual intervention at the card reader 
allows continuation of card input: : 


a. Hopper empty 


b. Stacker. full | | a 
Cc. Not ready: Stop button depressed 
Start button not depressed 
Validity" check with validity button on 


d. Feed check 


rd 


e. Read check 
E. DECtave Handlers (DTA., DTB..,.. DTD., DTC. 


1% All ‘the DECtape handlers have been modified to allow 
lip. £o-“56 files on a DECtape unit that is not a system 
device. Aoarg is still the maximum of the System device.) 
Block 10%g is the directory; blocks 71-77 are now ali 
reserved as file bit map BECK e a” 

2. DTB. has been shortened to allow DECtape input and output 
for the assembler (MACROA) - and the compiler (F4A) in 8K 
systems. ~ . | ° 


3. .MTAPE monitor calls to the DECtape handler DTD. are 
now operational. This is' the only handler which recognizes 
them. : 


_. 4. DUMP and IMAGE data modes are now operational in DTA. and 
| DTD. 


F. Drum Handlers (DRA., eae DRD) 


lL. Four drum (RMQZ9) handlers have been added to the system 
library for use in the PDP-9 Keyboard Monitor environment 
(see RMZ9 Drum Handlers, page ye 


ALL I/O Handlers 


The .WAITR 2, ADDR monitor call has been implemented in all 
the I/O device handlers. 


In I/O busy situtations control is given to the location with 


the symbolic name ADR; otherwise.it is identical to the .WAIT 
a monitor call. 


_ -KM9 yap Cs eS 


A. NEW_ FEATURES 


Be 


Channel (c) 7 (or 9 


This command causes the default operation bit (.SCOM+4, 

bit 6) to be cleared or set. If this bit is g, then 

7 channel operation will be assumed by the magtape handler. 
If it is 1, then 9 channel will be assumed. This default 
condition can also be set at system generation time by 
answering YES or NO to the question - 


“SHOULD DEFAULT ASSUMPTION BE 7 CHANNEL MAGTAPE?" 
339(3) ON/OFF | 
This command tells the monitor that a 3@g register block 
is (or is not) reserved for the 339 push-down list. If 


a 339 display handler is later loaded and the push-down 
list has not been reserved, an .IOPS 24 error will occur 


‘on the first .INIT to that handler. The default condition 


of the 339 ON/OFF bit (.SCcOoM+4, bit 5) can be set at system 
generation time by answering YES to the question - 


“SHOULD DEFAULT ASSUMPTION BE A 339 LOAD?" 
VC38(V) ON/OFF 


This command causes the character display table for the. 
VC38 option to be set up prior to loading of any system 

or user programs. If this table is not set up and the 
user does not specify a character table in an .INIT to the 
handler, the display handler will assume the absence of a 
vc38 for text manipulation. The default condition of the 
VC38 ON/OFF bit (.SCOM+4, bit 4) can be set at system 
generation time by answering YES to the question - 


"SHOULD VC38 CHARACTER TABLE BE LOADED?" 


If the 339 is ON (bit 5 of .SCOM+4=1), then the contents of 


the first location of the push-down list is initially set 
to zero. However, if VC38 is ON (bit 4 of .SCOM+4=1), then 
the first register of the push-down list points to the 
starting address of the vc38 table. | 


This command implies 339 ON. 


BATCH CD (Reference Addendum Number 2 to PDP-9 Monitor. 
Manual DEC-9A-MAB{-D) 


This command causes batch mode to be entered with the CR@1E 
or CR@2B as the batch input device. Two special characters 
may be keypunched to generate proper commands... 


t 


a. Back arrow (<) = 0-5-8 punch 
b. ‘Altmode (ESC) = 12-1-8 punch 


Expansion of the SKIP BLOCK 


The skip block has been divided into two Separate parts: 


a. SKPBLK (logical block 44) which contains the skip 
chain and associated transfer vectors. 


b. IOBLK (logical plock 5'5) which contains the I/0 
| handler names as produced by SGEN. 


F4A is present on the System Tape and may be called. 


GET function: 


In order‘to allow a SAVE (#Q). and restart of all system 
programs and to compensate for all changes which,result | 
from Q occuring during execution of an '‘I/O' handler, 
particularly TTA, the GET function now works as follows: 
: ! 
a.) SGET n XXXXXQ : } | 
| works as in the past where n = the unit # of the 
device whose save: (*Q) area is being referenced 
and XXXXX is the location in memory where execution 
is to begin. F 
b.) SGET n- (H) ALT) : : 
when the save area is loaded the computer stops. 
The user may load the address switches with his 
desired starting location (remembering to raise 
the extended memory switch if the machine is greater 
than 8K) and press "START": or follow the directions 
in (c) below. 
Ge) SGET n 
When the save area is loaded, execution of a Monitor 
wait loop with API and/or PI on tapes place. 
To start the saved program, one of the folowing 
actions must take place: 
(1) Type FP or 7 or FS 
ox (2) Press the STOP button; set:the desired 
hawk addwoss da the addres switches; 
Abel HEC GWAR! Ceocbench awibadli tye GP queater 
tdvetae HER 


10. 


+P restarts system programs and will restart any user 
program which has issued an .INIT to the teletype ' 
with a restart.address. 


*T is for a DDT restart. 

S would be used only if a SAVE (fQ) had been executed 
at the completion of a link load when the loader was 
waiting for #S to be typed. 


Communication with PIP: 


For improved PIP operation (see PIP V7A), KM-9 has been 
changed to refrain from storing the unit # in the .DEV table. 


A major improvement in Monitor operation with reference 
to IOPS errors has been implemented in V4B. At the occurence _ 
of all IOPS errors other than #4 (not .ready - which operates 


‘as in the past), the resident Monitor now waits in a teletype 


loop for the user to type #P to restart the system or user 
program; #Q to execute. a save,of core; or #C to reload the 
Monitor. ie 


~ 


| Additional Features Which Were in. KM9 V3Cc 


‘ 


a. New and/or Modified Commands 


(1) “INSTRUCT (I) List o£ monitor conmuands 
, : ‘ { ot ' 4 ' 
(2) INSTRUCT (I) ERRORS Dee. Ot LOPS, 6wOAD;, .<SXYSLD, 


-OTS and .SEG error messages 


All other INSTRUCT commands have been deleted 
Since this information is contained in the Keyboard 
Monitor Guide (DEC-9A-NGBA-D). 


(3) ASSIGN (A) Assumes handler A if a two-lettershandler 
is typed and Unit 9, if no unit number number is PYPESs 


Example: A DT1 2 is aqui aiene to A DTA1L 2 
and ADT 3 is equivalent to A DTAYZ 3 


(4) BATCH(B) XX Enter batch rpocessing mode. XX can 
be PR (paper tape reader) or CD (card reader). 


(A) RAO fade ian aVYatean pabaher, 
"4 


(6) UHATN Waedayyep 404 chad buddder. 


(7) EXECUTE(E) NAME Begin executing the chain file 
called NAME. . 


(8) . MACROA Bring in abbreviated MACRO-9. 
(9) F4a Bring in abbreviated FORTRAN IV. 


(10) API ON/OFF Run the system with the API on or off. 


i 
i 


New Options 


Resident error routines for 

Power Fail . 

Memory Parity 

Non-existent memory violation and 

Memory Protect violation 
have been incorporated into the system and effect an 
-IOPS error message if the condition is detected. (See 
-LOPS error list below.) 


The user has the ability (via .SETUP) to tie his own 
handler into these skip IOT or API channel registers. 


-Example: A machine with power fail will generate an 


-IOPS 34 error if the power low flag interrupts. 
The IOPS error routine will not save the 
appropriate registers. Therefore, if the user 
wants the ability to restart, the save and 
restore routines should be contained within 
the user's program. The skip IOT for power 
fail must be connected to this routine by a 
call to .SETUP. | 
Negative skip facility is now allowed in the pEegeam 
interrupt ene ede ae oe, 


Clock Handling 


.TIMER monitor call has been modified to allow the user 
to indicate another interval at the completion of previous 
interval in the subroutine specified to .TIMER. 


LOAD AC with desired interval (2's complement) 


DAC* (7 : 

LAC RETURN | | /RESTORE LINK 
RAL . 

LAC SAVEAC _ /RESTORE AC 
CLON /TURN ON CLOCK 


JMP* RETURN /RETURN TO USER 


8. New Error Lists for V4B 
Monitor Errors - .LOPS 


g ILLEGAL FUNCTION CAL —- CAL ADDRESS 
CAL* ILLEGAL - CAL ADDRESS 

2 .DAT SLOT ERROR - CAL ADDRESS 

3 ILLEGAL INTERRUPT - INPUT/OUTPUT STATUS REGISTER. 

4 DEVICE NOT READY - TYPE R WHEN READY 

5 ILLEGAL .SETUP CAL - CAL ADDRESS 

6 ILLEGAL HANDLER FUNCTION 

7 ILLEGAL DATA MODE - CAL ADDRESS 
1g FILE STILL ACTIVE - CAL ADDRESS 
ll SEEK/ENTER NOT EXECUTED - CAL ADDRESS 

12 UNRECOVERABLE DECTAPE ERROR - STATUS REGISTER B AND UNIT NO. 
13 FILE NOT FOUND - CAL ADDRESS 
14 DIRECTORY FULL - CAL ADDRESS 
15 DECTAPE FULL - CAL ADDRESS 
16 OUTPUT BUFFER OVERFLOW - CAL ADDRESS 
17 TOO MANY FILES FOR HANDLER - CAL ADDRESS 

28 DISK FAILURE - DISK STATUS REGISTER 

21 ILLEGAL DISK ADDRESS — CAL ADDRESS 

22 TWO OUTPUT FILES ON ONE UNIT - CAL ADDRESS | 

23 ILLEGAL WORD PAIR COUNT - CAL ADDRESS Se 
24 339 PUSH-DOWN LIST NOT RESERVED — CAL ADDRESS : 
25 ILLEGAL DRUM SECTOR ADDRESS © 

26 ILLEGAL DRUM UNIT 

27. ILLEGAL DISK UNIT - CAL ADDRESS 
38 API SOFTWARE LEVEL ERROR - API STATUS REGISTER 
31 NON-EXISTENT MEMORY REFERENCE - PROGRAM COUNTER 
32 MEMORY PROTECT VIOLATION - PROGRAM COUNTER 
33 MEMORY PARITY ERROR —- PROGRAM COUNTER 

34 POWER FAIL SKIP NOT SETUP - PROGRAM COUNTER 
35 ILLEGAL DRUM SIZE a 


Loader Errors - .LOAD or .SYSLD 


1 MEMORY OVERFLOW | 
2 DATA ERROR . 
3 SUBROUTINE NOT FOUND | 
4 .DAT SLOT ERROR 


Object Time System Errors - .OTS 


5 ILLEGAL REAL SQUARE ROOT ARG 

6 ILLEGAL DOUBLE SQUARE ARG 

7 ILLEGAL INDEX IN COMPUTER ‘GOTO 
1g ELLEGAL I/O DEVICE NUMBER 
11 ELLEGAL INPUT DATA 
12 ELLEGAL FORMAT STATEMENT 
13 ILLEGAL REAL LOGARITHMIC ARG 
14 ILLEGAL DOUBLE LOGARITHMIC ARG 


Execute Errors - .SEG 


CHAIN CANNOT ‘CALL ITSELF 
ILLEGAL EOF 

ILLEGAL EOM 

READ ERROR 

CHAIN AND COMMON TOO LARGE 


OB WN FH 


OYSTEM 


ENERATOR Vs3B 


A. CORRECTED BUGS 


l. Special device handlers can be specified with no skip IOT's | 
in the skip chain. | 

2. Negative skip IOT'S - .SGEN has been corrected to allow 
placement of a negative skip (SKIP ON NOT CONDITION) any~ 
where in the skip chain. 

B. NEW FEATURES 3 

1. Magtape 7 or 9 channel default assumption can be set 
at system generation time if any magtape handlers were 
requested. 

2. 339 system load and VC38 option default assumptions 
can be set at system SoHeeee Ton if a 339 nandler is 
added. 

3. System devices are now DT or DK (DTC or DKC assumed). 


C. USER'S HINT 


Ls 


The resident monitor can be reduced in size by deleting 
unwanted devices from the system. This can be accomplished 
by typing N for those devices (actually device handlers) 
which are not present in the user's configuration (e.g., 
Disk (DKA, etc.), Mattape (MIF, etc)). 


Another way of deleting skip IOT's is available to those 
installations not having Memory Parity, Power Fail, or 
Memory Protect. When skip chain ordering is performed, 
type all skips except those associated with the options. 
which are not included at the installation; namely - 


a. SPE for memory parity 


b. SPFAL for power fail 


c. MPSNE and MPSK for memory protect 
Then type DONE to terminate the skip chain. 
Note to 24 and 32K PDP-9 Users 


Because of the expansion of the library file (.LIBR BIN) 

in the Keyboard Monitor system, system generation of 24 

and 32K systems requires one of two possible preliminary) _ 
steps to assure the existence of adequate space on the == ~~ 
generated system tape: 


a.) The simpler of the two methods is to modify .SGEN, 
cell 13475 (NOP), thereby inhibiting the provision 
of a Q area on the generated tave. (This does 
not inhibit use of Q to other tapes). 


b.) Prior to system generation, run the UPDATE program 


and delete unwanted I/O handlers from .LIBR BIN; 


e.g., drum, disk, etc. if these devices do not exist 
in the system. . : 


Please note the write-up on system generation (page ) 


UPDATE V4A 


A.- CORRECTED BUG 


1. The binary program processing routines have been | 
modified to allow for short (1 binary buffer) programs. 


~B. ADDITIONAL FEATURES 

i. The command | 

| DELETE (D) NAMEL, NAME2 
will delete programs NAMEL through NAME2 inclusive and 


leave the file positioned immediately before the entry’ 
after NAME2. 


DUMP V3A 
A. ADDITIONAL FEATURES 


1. The command NNN#-) or ALT Mode will dump DECtape block 
number NNN read in the reverse direction. 


MACROA V3A 
A. CORRECTED BUG 


1. The buffers in MACROA have been TEASER Se: * to allow for 
card image (81 characters) ° inputs 


B. PERMANENT DESIGN RESTRICTIONS 


lL. User defined Macros are not allowed. | 
(System Macro calls are Bete allowed) 


2. .ABS and JFULL output is not allowed. 
3. Conditionals and Repeats are not allowed. 
Cc. SYMBOL TABLE 


1. The following symbol table sizes exist on 8K with the 
full complement of skip iors in the skip chain: 


(NOTE: Handlers listed are for -DAT slots -1ll, -12, -13, 
and -10 respectively) | . 


Qe PRB, TTA,PPC, TTA - 610 symbols (decimal) 
b. DIC,TTA,PPC,TTA - 482 symbols (decimal) 


c. DTB,TTA,DTB,TTA - 261 symbols (decimal) 


F4 V4A 


A. CORRECTED BUGS 


see 


Ze 


Correct code is generated for a subroutine argument which 
is in both a DIMENSION and a COMMON statement. 


References to non-existent memory: Several illegal refer- 
ences to non-existent MEMORY, by F4 and F4A have been found 
and corrected. 


Absence of an END statement: The compiler has been modified 
to assume the presence of an END statement if it fails to 
find one. This corrects the endless error printout of 
former versions. 


B. TEMPORARY RESTRICTIONS 


bs 


3. 


EXTERNAL statements in subprograms will not compile properly. 


Function names which are used as dummy arguments in sub- 
programs will not compile properly. 


The compiler fails when a subprogram contains a COMMON 


statement and a dimensioned array is in the argument list. 


Programming hint to temporarily get around the bug: 


At 


NORMAL CODING 


Main program 
DIMENSION A(292) 
COMMON B 


CALL SUB (A) 

Subroutine | 
SUBROUTINE SUB(A)' 
DIMENTION A (296) 
COMMON B 


-CORRECTED CODING (with new code underlined) 


Main Program 
DIMENSION A( 222) 
COMMON B 


CAL SUB (A(1)) 


Subroutine 
SUBROUTINE SUB (AX) 
DIMENSION A(1) 
COMMON B 
CALL ADIL (A, AX) 


this point the array A can be xeferenced as ait would be in 


tine normal coding above. 


4, Mixture of .OR. and .AND. in logical IF statements 
' generate errors at compilation time. This can be 
corrected by breaking up the logical expression 
in statements prior &> the logical IF statement. 


5. If the name of a subroutine or function does not agree 
with the file name given to the program, an E error 
will occure in PASS 1 as a warning. It will have no 
effect on the compiled ae | : 


6. Block data subprograms with COMMON blocks are not. 
properly compiled. 


C. SYMBOL TABLE 


1L.. The following symbol table sizes exist on 8K with the 
full complement of skip IO0Ts in the, skip chain: 


(NOTE: Handlers iieeéa are for .DAT slots -ll, 712, 
and -13 respectively) 


a. PRB,TTA,PPC -'189 sypbols (decimal) 
b. DIC,TTA,PPC - 62 symbols. (decimal) 
D. MANUAL CHANGE 


Ll. Changes need to be made to the PDP-9 FORTRAN LV Manual 
(DEC-9A-AF4B-D) x. & 


a. Add’ the .following paragraph to the description of 
the EQUIVALENCE statement of page a Sis 


4 ' 
An EQUIVALENCE statement which Peceue to an array 
which also appears in a COMMON statement must refer 


to the first element oe that ie 


‘Example: © DIMENSION | (200) , B (50) 
7 COMMON . 
EQUIVALENCE : Gi, Si) 
The above example shows a legal EQUIVALENCE statement. 
If, however, the statement were changed to read 
EQUIVALENCE (A(50), panes the statement would not 
compile. — 


- be. Add the following ety to the poser enesoe of 
TYPE statements on page I-35. 


Any function reference (statement functions, intrinsic 
-functions, or external functions) which are not 
implicitly REAL or ‘INTEGER must appear in the appro- 
priate type statement. 


Example: DOUBLE PRECISION B,X,DABS , DATAN 
B=DATAN (DABS (X) ) . 
L£ DABS and DATAN were not declared DOUBLE PRECISION, © 


improper code would be generated by the compiler. 
/? 


F4A V4A (New) 


A. PERMANENT DESIGN RESTRICTIONS 
1. F4A has been deliberately designed for use on 8K installa- 
tions. Installations with 16K or greater may always use 
F4. Consequently, F4A is not intended to CE SHEEe ain 
systems greater than 8K. 


2. The O (object code listing) and S (symbol table listings) 
options have been deleted. i 


3. The following statements have been deleted from FORTRAN IV: 
a. EQUIVALENCE | - 
b. EXTERNAL 
Cc. ASSIGN 
ad. Assigned GOTO 
B. TEMPORARY RESTRICTIONS | 
(L. All which apply to F4 apply to Faa. 
C. SYMBOL TABLE | _ 


Ls ‘The following symbol table sizes exist on 8K with the 
£ull complement of skip tots in the skip chain: 


(NOTE: Handlers listed are for ~DAT slots a -12, and 
-13 respectively. ) | | 


a. PRB,TTA,PPC — 407 symbols (decimal) 
De. DIC, TTA,PPC - 278 symbols (decimal) 


c. DTB,TTA,DTB - 54 symbols (decimal) 


FORTRAN IV SUBROUTINE LIBRARY 
A. CORRECTED BUG 
The double precision multiply routines for EAE have been 


improved from 33 to 34 bit accuracy, with the 35th bit. 
rounded off. 


LINKING LOADER V3A 


A. 


ADDITIONAL FEATURES 


1. 


The Linking Loacer has been changed to allow common 
blocks and blockdata subprograms to overlap memory banks. 
FORTRAN IV allows common block sizes greater than 8192. , 
provided that each element in common does not exceed 10 
8192, 4, SeGay 


COMMON /I/L(100,100) 
is illegal because the size of array L is 10000, , 
COMMON /I/L1(100,50) ,L2(100,50) 


is acceptable. Each array size is 5000,, and the size of 
the common block is 10000, - | . 


(NOTE: FORTRAN IV does not properly compile blockdata 
subprograms with common blocks.) 


Rubouts (echoes\) and CTRL U (@) may be used in the 
command string to delete characters or the entire line. 
Carriage return is equivalent to comma except that it 
allows continuation of the command string on the next 
line. ALT Mode terminates the command string. 


CTRL P (4P) may be used to restart the Loader if an error 
is made in typing the command string. CTRL P (#P) must 
be given before the pera ng ALT Mode to be effective. 


Non-common arrays and variables are initialized to zero 
(0) by the Loader. 


MACRO-9 programs can be linked to COMMON areas defined 
by FORTRAN IV. If any virtual globals remain after the 
Loader has searched the user and system libraries and 
defined COMMON blocks, an attempt will be made to match 
those global names to COMMON block names. If a match is 
made, the global becomes defined as the address of the 
COMMON block. An example follows: 


FORTRAN IV PROGRAM «| 
INTEGER A,B,C 
COMMON /NAME/C 
COMMON A,B 


MACRO-9 PROGRAM 


-GLOBL NAME, .XX /.XX is nee given to blank COMMON 
| “f/by the F4 Compiler 
DZM* XX /CLEAR A - NOTE INDIRECT REFERENCE 
LSZ np @ : / BUMP COUNTER | 
DZM* — o XX /CLEAR B 
DZM* NAME /CLEAR C 


Please note that if the values are REAL (2 words) or 
DOUBLE PRECISION (3 words), the MACRO program must account 
for the number of words when accessing specific variables. 


' EDITOR V4A 


A. 


‘CORRECTED BUGS : BLOCK MODE Se 


il. Block Buffer is now Propes ly. cleared on program ‘xestart. 


2. Final line of puffer may now be aerceea: 


3. Buffer emptied by deletions may now be filled by READ 
' Yequest. 


4. WRITE request with pointer in middle of buffer will 
Output entire buffer, 


5. READ ealese no longer required PetOne teletype input to 
prime buffer... 


6. WRITE request no longer required before CLOSE. 
7. RENEW command acts just like WRITE followed by READ. 


8. BLOCK OFF issued while puee ee is | full results 
ae Message: 


BUFFER NON-EMPTY 


User must empty buffer before block mode really goes off. 
Editor cannot just blindly write buffer because pointer 
position would get lost in the process. 


ADDITIONAL FEATURES — 
lL. Temporary File Deletion 


If the Editor's temporary file (efPiGL EDT) is found on 
the output device, the following comments are printed: 


FILE ~TFILI IS PRESENT ON OUTPUT DEVICE. PLEASE 
RENAME IT OR IT WILL BE DELETED. ° 
If the file is not explicitly deleted ox renamed (via. 
the CALL function), it is automatically deleted. 


2. Liko-Nanod liles 


ae Uk a file dine found at wor or Choce tine du the 
"Youtpub™ cdavicga, tha Lolhowiag Gommeanty are Jtdateds 
‘4 


PILE FELNAM EX ILS PRESHNU ON OUN'PUL DEVICE. 


. “14 VTi wD 
YOUR EDITED FILE IS ON nef AS . 
I: 


#15 SILNAM EXT 


he Y 


is not printed in this case. 


ORIGINAL FILE DELETED. 
The file processing goes as follows: 


1. The Editor first attempts to leave the file 
on -14 as FILNAM EXT. 


2. If it cannot do (1), it tries to leave the — 
file on -14 as .TFIL1 EDT. 


2B If it cannot do (2) either, it leaves the 
file on -15 as .TFIL1 EDT. 


4. he Editor is restarted. 


In any case, the user knows exactly the 
-Status (residence, name) of the edited file. 


This scheme protects against: 


(1) Files of the same name on -14 and 
-15 e 


~ (2) Two ox more files of the same name 


t 


Name Provided in CLOSE sequence 


‘It is now possible to give a name in the CLOSE request which 


is identical to that given in the OPEN sequence. The 
normal comment: 


PLEASE USE ANOTHER NAME 


Provision for Backup Files 
The KEEP function effects preservation of the original file 
as it appears on .DAT -14. That file will be renamed 
"SAVNAM EXT" during peQcess ing of the next CLOSE or TOP 
request. 

Format: 


KEEP SAVNAM. (EXT) 


- "SAVNAM" must be different from any file name appearing in 


the directory on -14. As many KEEP requests as needed may 
be issued. 7 ee oe, 


Restriction: 


1. The KEEP request must be issued while the 
input file is on -14 (i.e., the number of 
TOP's issued must be even 0,2,4,...). 


2: "SAVNAM EXT" must be unique. If it is not, 
the name "SAVFIL EDT" will be assigned. 


' 


Example of Usage: 


EDITOR V4A | 
OPEN THSFIL : 
EDIT 

KEEP BKUPOL 


TOP  /Normal* TOP 
NEXT . LfSome locative request must 
be issued here to allow 
physical file transfer at 
, | second TOP. on 4 
TOP  /To return file to -14. 
KEEP BKUP0O2 


CLOSE | 
Resulting Directory on -14: | 
THSFIL SRC . : /New edited file | 
BKUPO1 SRC: . /First copy--original 
BKUPO2 SRC _ fSecond copy--after TOP's 


File Renaming and Deletion 


The CALL function allows user access to the file renaming 
and deletion facilities in the Editor. This command may 

not be issued while any file (either input or output) is 

open. That is, it may only be used immediately after the 
Editor is loaded or restarted. 


Format: 
INPUT . 
CALL RENAME FILE] EXl1 FILE2(EX2) 
OUTPUT 


‘The file FILE] EXl on .DAT-14 (if INPUT is specified) 
or ~DAT- -15 (if OUTPUT is specified) is given the new 
name FILE2. . EX2 need not be given. Lf i 2S: NOt, BAL 
is used; if it is given, thén EX2 is used. 


INPUT 
CALL DELETE FILNAM EXT 

OUTPUT 
The file named FILNAM EXT is deleted from the device 
specified (INPUT or OUTPUT). EXT need not be given 
and, if it is not, "SRC" is used. 


6.:ICLOSE Request 


~ 


“Phe ICLOSE command effects the ‘closing. of the current input. 


file only. The output file remains open. A new input file 


may be referenced after the ICLOSE request by issuing an 
OPEN command. ICLOSE provides a facility for combining source 


files during an editing run. 


C. PRECAUTIONS _ | | 


l. 


Block Buffer Overflow : 


In the event that the editor's block buffer becomes full 
(BUFFER CAPACITY EXCEEDED BY: Offending line) the user's 
only recourse at present is deletion of the line (or lines) © 
that caused the error. The user must ensure that the 
buffer contents stay well within the buffer limits if he is 
to avoid this situation. 


SCLOSE Restriction 


The command SCLOSE is intended to allow the seesrent of 
the edited file on the current output device. Its use, 

in place of the CLOSE request, normally causes the file to 
be left on .DAT -15. . | 


This allows the closing -of long files, apes Seagaey changes, 

without the tedious recopy process from -14 to -15. However, . 
its use causes a fatal error under some circumstances. For 
example, the following sequence causes an IOPS 1f error: 


. # ICLOSE 
> SCLOSE NAME -. where name is the same as 
Error message (Plea..: that used in the OPEN command 
Use another name) 


> SCLOSE NEWNAM 


For this reason, SCLOSE should be used only with care. 


DDT V3A 
A. ADDITIONAL FEATURES 


“1. DDT can now be called without. loading any user programs. 
When the Linking Loader is in core and types 


LOADER V2A 


waiting for the user to type in the names of the programs 

to be loaded, the user may type CTRL t (#7). Control will 

go directly to DDT. : | 

ae The HDRS$ routine (which Senses the symbol table look-up) 
has been modified. The PEOre® form is now 


NAME; HDR$ 
with no spaces. 


The old form (NAME HDRS$) will still work if NAME is not 
also used as an internal symbol. 


B. DELETIONS 


il. The patch file feature has been deleted from the Keyboard 
Monitor version of DDT. Thus, the following commands are 
illegal and will produce a question mark (?) response: 
PFIS | 
PFO$ 
SNS$ 
PFE$ 


.DAT slots -6 and -10 have no further Significance to DDT. 
| ae 
C. RESTRICTIONS a 
1. Breakpoints should not be wiaced in routines which operate 
with API active. If such a breakpoint is encountered, 
DDT will type: 7 


API 4XXXXX_ (API status register) 
along with the normal breakpoint information. The excla- 


Mation point (!) will have no effect at that breakpoint, 
that is, a restart from the breakpoint is not possible. 


PIP V7A 


Rs cOBEEe Lee BUGS 


B. 


i 


ae 


An.error is VS5A which erivented H mode copy of a disk unit 


to DECtape & vice versa has been corrected in VGA. 


An error in V5A which caused failure to copy block 1077 
in H mode copy of DECtape to. DECtape has been corrected. 


ASCII line buffer sizes neve been increased to accomodate 


fhe 120 character line Pernice length. 

H Mode Copy Problem in 24 and 32K: PIP has been corrected 
to properly copy tapes’ in H mode without core EEDONES pt 
read-compare errors in 24 and (32K. 


File Closing Problem: PIP has been sou eaea to close files 


after copy (H mode) operations to” prevent the IOPS 17 (too 


many files referenced) after several COPY operations, each 
referencing different ~-DAT slots. | 


ay 


ADDITIONAL FEATURES 


l. 


Transfer, Copy, and List Directory commands may be used 
with 56 file ara 


aie 


, WARNING: : 


24 file tapes with eerie versions of the PDP-9 Advanced 
Software may.still be used, provided they contain no more 
than 24 files. To convert to the new 56 se format, use 
the PIP Copy’ command with switch N = Si oe use’ eel 
H switch. 


1 


To distinguish 24 file as from 56 file tapes: 


A 24 file tape indicates 4 system blocks when the 
Brecceery is listed. 


A 56 file tape indicates i or more. 


The New Directory (N) command or switch will now cause 


"8 blocks to be reserved as file bit map blocks (required. 


to implement the DECtape 56 file capacity). These blocks 
are: the directory (block oe and 7 file bit pie blocks 
(71, through ay 3) - 


S switch: as a function of installation core size, 
(determined at system generation time), the S switch 


refreshes a directory, reserving TQ area blocks as well 


as basic system blocks for directory and file bit maps. 
For example, in an 8K system, 32, additional blocks 


~ (101, - 00 are specified as  ocbupied in the aa cpenagt 


-(b108&k 100 


~e 


is acceptable to PIP-9. 


S is now a permissible switch (the only one) in a Newdir | ** 
(N) command. Whereas, . : 


N pDT2 ) 
reserves only directory and file bit map blocks, 


N pT2 (S) y 


‘additionally reserves *Q area blocks. S remains permissible 


wherever else it is specified in the PIP manual. However, 
S and N are mutually exclusive when they both are used as 
switches. | i | : 


(NOTE: S no longer copies a system tape.) 


I/O device designations in the PIP9 command string may now 
include a third letter, e.g., the letter "A" in the state- 
ment: A Ae foo 7 ES : oo 

L TTA <-DTB1 | 


ae 


File name extensions SRC and BIN may be omitted in the 
Transfer (T) or Verify (V) commands if the appropriate 
data mode switch (A or B) appears in the command string, 
QeJor ie, ‘ | | ; 


/ 


@.DT2 (A)<~ DT1 FILE») 


effects a transfer of FILE SRC to DT2., (If program, FILE 
(no extension) exists on DT1l, it will be transferred) 7 
V DT1 FILE (A) » | 
causes FILE SRC to be verified. 
Conversely: if SRC or BIN appears as an extension in. 
the command string (T or V), data modes A or B (whichever 
applies) will be assumed, e.g., . ie ae 7 
T DT2 <~ DT1 FILE SRC) 


is the same as T DT2 (A)+— DT1l FILE SRC) 


is the same as T DT2 (A)<— DT1 FILE y) 


F and T are two new switch options. They may only be 
used with the transfer command (T) and data mode A. 
’ 4 ase 


The T switch causes the deletion of trailing spaces in 


an ASCII file. T, E, and C are mutually exclusive switches. 


The F switch causes the insertion of a form feed (FF) and 


carriage return (CR) after every .EJECT or 564) lines if 
no FF has been thus far encountered. 


A new switch (Q) has been added to delete sequence numbers 


from ASCII input lines during the Transfer command. The 
switch is primarily intended for card conversion to some. 


other medium. Columns 73-80 are deleted leaving a 72 char- 
acter line with a carriage return as the 73rd character. | 


The Q switch is legal only with A data mode in a Transfer 
command. It may be combined with C (spaces to tabs) or 
T (delete trailing spaces). 


The internal logic of the Copy (C) command with H switch 
specified (i.e., a direct DECtape copy in its entirety) 
has been changed to use all of available core memory for 


-a very much faster copy (approximately 5 minutes in 8K. 


and 3.5 minutes in 16K). The fastest possible copy is 
executed by assigning "NONE" to all positive »~DAT slots 
except those needed for the PECESS prior to loading PIP 


' for an H copy. 


Use of Positive .DAT slots: PIP V7A has been aEEOVES, in 
its method of meeeHene Lg .DAT slot assignments: 


a.) PIP now used .DAT slot-3 (alsways TTA) when 
_ . teletype I/O is requested thus obviating the 
- necessity of TTA assignment to the positive 
side of the .DAT table and freeing up one 
more slot for another device. 


b.) PIP no longer requires the exact unit # of a 
multi-unit device in the positive .DAT table. 
Provided a handler for the device is assigned, 
PIP will set the unit # from the command: string 
into the .DAT table. 


For example, suppose two slots were assigned to 
DECtape, units 1 and 2. . PIP V7A will allow 
reference of any two DECtape units, not just 
land 2 as in past versions. | 


A. 


B. 


“CORRECTED BUGS 


~ ADDITIONAL FEATURES © 


PATCH V3A 


(Reference Addendum Number 5 to PDP-9 Utility. Manual 
DEC~9A-GUAB-D ) 


1. Leading spaces are allowed in all commands and no longer 
Cause an error, 


2. Comments in some commands were flagged as errors, This 
has been corrected, i 


Because of the way the READ command has now been implemented, 
a comment can only be used after both filename and extension 
have been given, 


i. Single-Block | Commands | ne 


ae ee 


Forms: DB scene: 
. >B+octnum 32 
7B-octnum 2 | 


The octal number specifies the block number: g < octnum £1191 
If the number is out of this range, the following error message 
will be given: | 


ILLEGAL BLOCK # 


B and B+ are equivalent and indicate that the block is to be 
read in the forward direction. B- means read in reverse 
Girection, This distinction is necessary only for DECtape, 
which has bidirectional a Sag For the Disk all three 
forms are equivalent, 


The Block commands are equivalent to specifying a system 
program for patching, Once a block has been selected, List 
. and Read commands may refer to locations 


GLloc< 377 


Any other number causes ADDRESS OUT OF RANGE error. A space 
and optional comment may follow the block number in the Block 
comaners . 


The READ command has been altered to allow DECtape or Disk 
as the auxiliary input device (in addition to the paper tape 
reader), This was done because MACRO can now assembie 
Absolute Block Binary (.ABS) onto DECtape or Disk, 


Forms: — - READ. 


DREAD fname 2 
>READ fname ext) 


The first form is used when reading from paper tape (no file 
name needed), If the second form is used, the extension ABS 
is assumed, Only the first 6 characters in fname are used and 
only the first 3 characters in ext are used, Each may contain 
up to 9 characters, ; 


If the file is not found on the input device, the following | 
error message may be given: . 


FILE NOT FOUND 


When in single~block mode, if a READ command is given, the 
address range is from Y to 377 octal and must be as such on 
the auxiliary device, 


The error message - 
END OF MEDIUM 
can no longer occur because end of medium cannot be detected 


anymore, This is due to the hens in the READ command which 
now reads in dump mode, 


CHAIN V2A 


A. 


“CORRECTED BUGS ~~. 


(Reference Addendum Number 6 to PDP-9 Utility, Manual 
DEC~9A-GUAB-D) | 


“1. Chain numbers larger than 9 are now interpreted properly. 


te ae ee 


1, Common blocks and blockdata subprograms can now overlap 
memory banks (see Linking Loader V3A). 


2. MACRO programs may refer to FORTRAN program common blocks 
through the use of global symbols (see write-up on Linking 
Loader V2A),. This feature will work only if the MACRO and 
FORTRAN programs are part of the same chain. The only . 
exception is blank common ( XX), which cannot be so 
referenced, - 


MONITOR V4B SYSTEM PROGRAM PATCHES 


KM-9 V4B: 


6234 
16312 
11122 
11123 
11124 
13257 

326 
426 
427 
439 
431 
432 
433 
434 
435 
519 
511 

5316 

6413 

- 6414 


6415 | 


.SGEN V3B: 


14599 
13744 


eSYSLD: 


17363 
17364 
17365 
17444 
17445 


17446. 


17353 
17354 
17355 


_ PATCH V3B: 


16424 
16567 
16579 
16693. 
16694 
16561 
16562 © 


487726 


1321 
649149 


' 554867 


576361 
233537 
749009 
762856 
769111 
769117 


769128 


769123 
169949 


20 G24 


629422 
49G511 
629249 

49344 
51934 
119262 
553466 


316921 
6PP11 


3642 
7642895 
3643 
5957 
765222 
5960 
7777 


779142 


1P 999 


340432 
3642 
764005 
5057 
765222 
7777 


770142 


413729 
259 
649249 


554971 
576368 
| TSP PPP 
| 689434 


769111 


760117 


769126 


- 769123 


288248 - 


629422 


290511 


600377 
626249 


| 763745. 


259 
696413 


“AG344_ 


49326 
605317 


316941 
613797 


3692 


3693 
5917 


765162 


5929 
7737 


“779192 
(7748 


341932 


3692 


763745 


5817 


765162 


7737 


779102 


(New Values) 


Additions to the PDP-9 FORTRAN IV Subroutine Library 


FILE 

File Commands 
1. Class: External Subroutine 
2. Purpose: To provide the device-independent .IOPS commands 


SEEK, ENTER, CLOSE, FSTAT, RENAM, and DLETE. These 
commands are used to allow the FORTRAN IV Object 
Time System to communicate with .IOPS file-oriented | 


devices. | 
a. SEEK finds and opens a named input file. 
b. ENTER initiates and opens a named output file. 
c. -CLOSE terminates an input or an output file and 
_ must be used if SEEK or ENTER has been used. 
d. FSTAT checks oe tis presence of a named file. _ 
e. RENAM checks for the presence of a file and 
- renames it if found. | 
£. DLETE checks for the presence of a file and 


deletes it if found. 


(NOTE: BACKSPACE, REWIND, and ENDFILE commands 
should never be used with a device that is 
operating in the file-oriented mode using the 
above subroutines. ) 


3. “Calling Sr avencess 


ae 


i 


To seek a named eile: 


CALL SEEK (N,A) 


where N=device number 


A=array name containing the 9-character 
5/7 ASCII file name and extension. 


The file array has the following format for 


the named file FILNAM EXT: 


DIMENSION FILEN | (2) 
DATA FILEN (1) ,FILEN (2) /5HFILNA, 4HMEXT/ 


To use this named file for input on .DAT slot 1: 


CALL SEEK (1, FILEN) 


een ge cae en ne ee enn ene a ne eee ee er ee ree 


Se oR ee re ee a a RN tA a ee Seas 25g dsaeoe 


b. To enter a named file: 
CALL ENTER (N,A) 
where N and A — the oe as for SEEK. 
c. To close a “named file: 
CALL CLOSE (N) 
where N is the same as oe SEER. 
a., To check for the presence of a mame ces re 
CALL FSTAT AN, A, I) 
where N and A are the same as for SEEK and — 
I=-]l1 (.FALSE.) if file not found and I=0 
(.TRUE.) if file found and action, complete. 
e. TO rename a file A and call it B: 
CALL RENAM (N, A, B, I) 


where N, A(B is the same as A), and I are the 
same as for orev 


£. To delete a Aahied file: 
CALL DLETE (N, A, I) 
where N, A, and I are the same as for FSTAT. 
4. External Calls: | : 


FIOPS, .DA, .SS, .SEEK, .ENTER, .CLOSE, .FSTAT, 
.RENAM, .DLETE | 3 


: | 
5. Size: 322 octal locations © 
6. Error Conds tions 
.OTS Error 10 if I/O device number is illegal 


.IOPS Error 13 if file not found on SEEK 
eLOPS Error 14.if directory full on ENTER 


TIME 
l Class: 


2 Purpose: 


3. Calling sequence: 


ee mee tomo 


- Example: 


4, External Calls: 


5. Size: 


6. Error Conditions: 


A 


PDP-9 FORTRAN IV 


Clock Handling 
External Subroutine 
To provide the ability to record elapsed time in 
minutes and seconds 
CALL TIME (IMIN, ISEC, IOFF) 
This call causes the clock to be started and the 
elapsed time recorded as minutes and seconds in 
IMIN and ISEC. To stop the clock, set IOFF to 


non-zero. 


Only one call to TIME or TIME1% can be active at 


Any. Pores in the user pPeCrZ ei: 


‘CALL TIME “(M, ‘Is, IOF) ~ 


: 
| 
IOF=1 | 


| WRITE (4, 162) IM, Is 


This sequence will cause the time taken to. execute 
the code at A to be output. 7 


: 
- t 
{ 
' 
} 


DA, .TIMER 


52 octal locations 


| 


None , . 


1 


TIME1Z 

1. Class: 

2 Purpose: 

3. Calling Sequence: 


4. 


5. 
6. 


Example: 


External Calls: 


Size: 


Error conditions: 


PDP-9° FORTRAN IV 
Clock Handling 


External Subroutine 


To provide the ability to record elapsed time in 
minutes, seconds, and tenths of seconds. 
- 


CALL TIME1@ (IMIN, ISEC, ISEC1%, IOFF). 

This call causes the clock to be started and the 
elapsed time to be recorded as minutes, seconds, 
and tenths of seconds in IMIN, ISEC, and ISEC19 
respectively. To stop the clock, set IOFF to 
non-zero. Only one call at TIME1# or TIME can 
be active at any point in the user program. 


See TIME 


-DA, .TIMER 


66 octal locations 


None 


PDP-9 FORTRAN IV 


Il. Adjustable. Dimension 
1. Class: | External Subroutine 


2 Purpose: To provide dimension adjustment on a one 
: dimension array - 
3. Calling Sequence: | | 
| DIMENSION B(1) 
CALL ADJ1 (B,A) 


where B is the array whose storage begins at A. 
A must be array element (such as C(2f%)) with 
sufficient storage beyond A to allow for all the 
entries of array B. The dimensions or type of 
array A do not have to agree with array B. 


B cannot be a auany argument in a subroutine but 
A can be a dummy argument. 


Example: DIMENSION A(30) 4 B(1), C(1) 


CALL ADJ1 (B,A(1f1)) 
CALL ADJ1 (C, A(261)) 


= 
After the calls to ADJ1, the arrays Ge ena may be 
referenced as if they had been dimensioned as (19% 
each. No further calls to ADJ1 have to be made. 


4, External calls: 
~DA 
5. Size: i 17 octal locations 


6 Error conditions: 
. None 


— wI2 


3. 


Class: 


Purpose: 


Calling Sequence: 


Example: . 


External Calls: 


Size: 


Error conditions: 


36 octal locations 


PDP-9 FORTRAN IV 
Adjustable Dimensionin 


External Subroutine 


To provide dimension adjustment for a two dimensio 
array 


| 
DEVE TON B(l, 1) 
CALL ADJ2 (B,A,NR) 


where NR is the number of rows to appear in array 


See ADJ1 for comments on B and A. 


DIMENSION A(30), B(1,1), C(1,1) 


CALL ADJ2(B,A(1),18) 
CALL ADJ2(C,A(11) ,2) 


re the calls to ADJ2, the arrays B and C may be 
referenced as if they had been dimensioned (19,19) 


and (28,1%) respectively. No further calls to ADJ 
have to be made. 7 Re 


DA, .AD 


4 


- None 


ADJ3 
ae Class: 


2. Purpose: 


3. Calling Sequence: 


Example: 
4, External Calls: 
5. Size: 


6. Error Conditions: 


PDP - 9 FORTRAN LV 
Adjustable Dimensioning 
External Subroutine 


To provide dimension adjustment for a 
three dimension array 


DIMENSION .B(1,1,1) 
CALL ADJ3 (B,A,MR,NC) 


Where NR and NC are the number of rows and 
columns respectively to appear in array B. 
“See ADJ1 for comments on B and A. 

See ADJ1 and ADJ2 

-DA, .AD 


41 octal locations 


None 


